home *** CD-ROM | disk | FTP | other *** search
/ Day by Day Vision: Paris / Day by Day Vision: Paris.iso / mac / DaY BY DaY VISION PARIS / _SETUP.1 / WhatDayParis.EXe / 0 / RCDATA / TMAIN / TMAIN.txt
Encoding:
Text File  |  1997-10-01  |  3.1 KB  |  157 lines

  1. object Main: TMain
  2.   Left = 297
  3.   Top = 107
  4.   BorderStyle = bsSingle
  5.   Caption = 'WHAT DAY ?'
  6.   ClientHeight = 350
  7.   ClientWidth = 261
  8.   Color = clWhite
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'System'
  12.   Font.Style = []
  13.   Menu = MainMenu1
  14.   Position = poScreenCenter
  15.   OnCreate = FormCreate
  16.   OnDestroy = FormDestroy
  17.   OnShow = FormShow
  18.   PixelsPerInch = 96
  19.   TextHeight = 18
  20.   object ImageBK: TImage
  21.     Left = 0
  22.     Top = 0
  23.     Width = 261
  24.     Height = 350
  25.     Align = alClient
  26.   end
  27.   object ImgMonth: TImage
  28.     Left = 17
  29.     Top = 5
  30.     Width = 135
  31.     Height = 38
  32.   end
  33.   object ImgWeek: TImage
  34.     Left = 173
  35.     Top = 73
  36.     Width = 54
  37.     Height = 17
  38.   end
  39.   object ImgDate: TImage
  40.     Left = 72
  41.     Top = 56
  42.     Width = 57
  43.     Height = 33
  44.   end
  45.   object ImgPrev: TImage
  46.     Left = 16
  47.     Top = 56
  48.     Width = 20
  49.     Height = 20
  50.     OnClick = ImgPrevClick
  51.   end
  52.   object ImgNext: TImage
  53.     Left = 40
  54.     Top = 56
  55.     Width = 20
  56.     Height = 20
  57.     OnClick = ImgNextClick
  58.   end
  59.   object FileList: TFileListBox
  60.     Left = 160
  61.     Top = 8
  62.     Width = 33
  63.     Height = 33
  64.     ItemHeight = 18
  65.     Mask = '*.jpg'
  66.     MultiSelect = True
  67.     TabOrder = 0
  68.     Visible = False
  69.   end
  70.   object ImgNeko: TImgKitDisp
  71.     Left = 32
  72.     Top = 104
  73.     Width = 150
  74.     Height = 150
  75.     TabOrder = 1
  76.     ControlData = {00000100810F0000810F000001000000FFFFFF00FFFF0000}
  77.   end
  78.   object ImgKitFile1: TImgKitFile
  79.     Left = 200
  80.     Top = 8
  81.     Width = 32
  82.     Height = 32
  83.     ControlData = {
  84.       000001004F0300004F03000000000000FFFF0000000000000000000000005400}
  85.   end
  86.   object MediaPlayer1: TMediaPlayer
  87.     Left = 200
  88.     Top = 40
  89.     Width = 57
  90.     Height = 30
  91.     VisibleButtons = [btPlay, btStop]
  92.     DeviceType = dtWaveAudio
  93.     Visible = False
  94.     TabOrder = 3
  95.     OnNotify = MediaPlayer1Notify
  96.   end
  97.   object AviNeko: TImgKitDisp
  98.     Left = 32
  99.     Top = 104
  100.     Width = 204
  101.     Height = 150
  102.     TabOrder = 4
  103.     ControlData = {0000010016150000810F000001000000FFFFFF00FFFF0000}
  104.   end
  105.   object MainMenu1: TMainMenu
  106.     Left = 232
  107.     Top = 8
  108.     object KF1: TMenuItem
  109.       Caption = 'ïソスtïソス@ïソスCïソスïソス(&F)'
  110.       ShortCut = 0
  111.       object KX1: TMenuItem
  112.         Caption = 'ïソスIïソスïソス(&X)'
  113.         ShortCut = 0
  114.         OnClick = KX1Click
  115.       end
  116.     end
  117.     object K1: TMenuItem
  118.       Caption = 'ïソスン抵ソス(&O)'
  119.       ShortCut = 0
  120.       object K2: TMenuItem
  121.         Caption = 'ïソスツ具ソスïソスン抵ソス'
  122.         ShortCut = 0
  123.         OnClick = K2Click
  124.       end
  125.       object K3: TMenuItem
  126.         Caption = 'ïソスïソスïソスïソスïソスwïソスïソス'
  127.         ShortCut = 0
  128.         OnClick = K3Click
  129.       end
  130.       object N1: TMenuItem
  131.         Caption = 'ïソスïソスïソスCïソスAïソスEïソスg'
  132.         ShortCut = 0
  133.         OnClick = N1Click
  134.       end
  135.       object K4: TMenuItem
  136.         Caption = 'ïソス鞫懶ソスoïソス^'
  137.         ShortCut = 0
  138.         OnClick = K4Click
  139.       end
  140.     end
  141.     object KH1: TMenuItem
  142.       Caption = 'ïソスwïソスïソスïソスv(&H)'
  143.       ShortCut = 0
  144.       object KC1: TMenuItem
  145.         Caption = 'ïソスレ趣ソス(&C)'
  146.         ShortCut = 0
  147.         OnClick = KC1Click
  148.       end
  149.       object KA1: TMenuItem
  150.         Caption = 'ïソスoïソス[ïソスWïソスïソスïソスïソスïソスïソスïソス(&A)...'
  151.         ShortCut = 0
  152.         OnClick = KA1Click
  153.       end
  154.     end
  155.   end
  156. end
  157.